inherited FCadastroUsuarios: TFCadastroUsuarios
  Left = 351
  Top = 206
  Caption = 'Cadastro de Usuarios'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    TabIndex = 1
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'USU_CODIGO'
            Title.Alignment = taCenter
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'USU_NOME'
            Width = 400
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'USU_DATA_LOGIN'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'USU_DATA_LOGOF'
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 68
          Top = 48
          Width = 44
          Height = 16
          Caption = 'Usu'#225'rio'
          FocusControl = DBENome
        end
        object Label2: TLabel [1]
          Left = 8
          Top = 96
          Width = 37
          Height = 16
          Caption = 'Senha'
        end
        object Label3: TLabel [2]
          Left = 8
          Top = 148
          Width = 101
          Height = 16
          Caption = 'Grupo de Usu'#225'rio'
          FocusControl = DBENome
        end
        object Label4: TLabel [3]
          Left = 115
          Top = 96
          Width = 72
          Height = 16
          Caption = 'Confirma'#231#227'o'
        end
        object Label14: TLabel [4]
          Left = 4
          Top = 48
          Width = 51
          Height = 16
          Alignment = taCenter
          AutoSize = False
          Caption = 'C'#243'digo'
        end
        inherited panel2: TPanel
          TabOrder = 9
          inherited SBAtualiza: TSpeedButton
            Left = 225
          end
          inherited BtnFechar: TBitBtn
            Left = 487
          end
          inherited DBNavigator1: TDBNavigator
            Left = 711
            Width = 120
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          TabOrder = 10
          inherited LUsuario: TLabel
            Width = 174
            Visible = False
          end
          inherited LDataMod: TLabel
            Width = 166
            Visible = False
          end
          inherited LNRegistros: TLabel
            Left = 188
          end
          inherited BtnConsuta: TBitBtn
            Caption = '&Consulta'
            Glyph.Data = {
              36010000424D3601000000000000760000002800000012000000100000000100
              040000000000C000000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007F0000000000
              0000070000007F8888888888888807000000F88888888888888880000000F777
              77777777777770000000F7A277777707070770000000F77FFFFFFFFFFFFF7000
              0000FFF7777777777777FF000000777FFFFFFFFFFFF877000000777F77777777
              77F877000000777FFFFFFFFFFFF877000000777F7777777777F877000000777F
              FFFFFFFFFFF877000000777F7777777777F877000000777FFFFFFFFFF8887700
              0000777FFFFFFFFFF8F777000000777FFFFFFFFFF87777000000}
          end
        end
        object DBENome: TDBEdit
          Left = 68
          Top = 68
          Width = 93
          Height = 22
          Ctl3D = False
          DataField = 'USU_NOME'
          DataSource = dsCadastro
          MaxLength = 10
          ParentCtl3D = False
          TabOrder = 1
        end
        object MESenha: TMaskEdit
          Left = 115
          Top = 116
          Width = 100
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          MaxLength = 6
          ParentCtl3D = False
          PasswordChar = '*'
          TabOrder = 3
          OnExit = MESenhaExit
        end
        object DBLCBNivel: TDBLookupComboBox
          Left = 8
          Top = 167
          Width = 417
          Height = 22
          Ctl3D = False
          DataField = 'USU_NIVEL'
          DataSource = dsCadastro
          KeyField = 'NIV_CODIGO'
          ListField = 'NIV_NOME'
          ListSource = DSNivel
          ParentCtl3D = False
          TabOrder = 5
          OnKeyDown = DBLCBNivelKeyDown
        end
        object ESenha: TEdit
          Left = 8
          Top = 116
          Width = 100
          Height = 22
          Ctl3D = False
          MaxLength = 6
          ParentCtl3D = False
          PasswordChar = '*'
          TabOrder = 2
        end
        object DBRGAtivo: TDBRadioGroup
          Left = 274
          Top = 95
          Width = 151
          Height = 43
          Caption = '  Ativo  '
          Columns = 2
          Ctl3D = False
          DataField = 'USU_ATIVO'
          DataSource = dsCadastro
          Items.Strings = (
            'Sim'
            'N'#227'o')
          ParentCtl3D = False
          TabOrder = 4
          Values.Strings = (
            'S'
            'N')
        end
        object edCodigo: TDBEdit
          Left = 8
          Top = 68
          Width = 54
          Height = 22
          Ctl3D = False
          DataField = 'USU_CODIGO'
          DataSource = dsCadastro
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 0
        end
        object cbAutorizaPedido: TDBCheckBox
          Tag = 2
          Left = 8
          Top = 240
          Width = 225
          Height = 17
          Caption = 'Autoriza Pedido de Compra'
          Ctl3D = False
          DataField = 'USU_AUTORIZA_PEDIDO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 7
          ValueChecked = 'S'
          ValueUnchecked = 'N'
          OnExit = cbAutorizaPedidoExit
        end
        object rgNivelAutPedido: TDBRadioGroup
          Tag = 2
          Left = 26
          Top = 264
          Width = 185
          Height = 97
          Caption = '  Nivel de Autoriza'#231#227'o '
          Ctl3D = False
          DataField = 'USU_NIVEL_AUTORIZACAO_PEDIDO'
          DataSource = dsCadastro
          Items.Strings = (
            '1 - Comprador'
            '2 - Gerente'
            '3 - Diretoria')
          ParentCtl3D = False
          TabOrder = 8
          Values.Strings = (
            '1'
            '2'
            '3')
        end
        object cbAutorizaSolicitacao: TDBCheckBox
          Tag = 2
          Left = 8
          Top = 208
          Width = 209
          Height = 17
          Caption = 'Autoriza Solicita'#231#227'o de Compra'
          Ctl3D = False
          DataField = 'USU_AUTORIZA_SOLICITACAO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 6
          ValueChecked = 'S'
          ValueUnchecked = 'N'
        end
        object GroupBox1: TGroupBox
          Left = 456
          Top = 56
          Width = 369
          Height = 105
          Caption = '  Informa'#231#245'es de Login  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 11
          object Label5: TLabel
            Left = 8
            Top = 24
            Width = 42
            Height = 16
            Caption = 'Status:'
          end
          object lbStatus: TLabel
            Left = 56
            Top = 24
            Width = 129
            Height = 16
            AutoSize = False
          end
          object Label7: TLabel
            Left = 8
            Top = 56
            Width = 72
            Height = 16
            Caption = 'Ultimo Login'
          end
          object lbDataLogin: TLabel
            Left = 8
            Top = 72
            Width = 145
            Height = 16
            AutoSize = False
          end
          object lbDataLogoff: TLabel
            Left = 192
            Top = 72
            Width = 145
            Height = 16
            AutoSize = False
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 480
    Top = 280
    object MarcarComoOff1: TMenuItem
      Caption = 'Marcar Como Off'
      OnClick = MarcarComoOff1Click
    end
  end
  inherited dsCadastro: TDataSource
    Left = 480
    Top = 80
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'select * from Usuario'
      'order by Usu_Codigo'
      '')
    Left = 480
    Top = 120
  end
  inherited dspCadastro: TDataSetProvider
    Left = 480
    Top = 160
  end
  inherited cdsCadastro: TClientDataSet
    BeforePost = cdsCadastroBeforePost
    AfterApplyUpdates = cdsCadastroAfterApplyUpdates
    Left = 480
    Top = 200
    object cdsCadastroUSU_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'USU_CODIGO'
    end
    object cdsCadastroUSU_NOME: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'USU_NOME'
      Size = 22
    end
    object cdsCadastroUSU_SENHA: TStringField
      FieldName = 'USU_SENHA'
      Size = 52
    end
    object cdsCadastroUSU_NIVEL: TIntegerField
      FieldName = 'USU_NIVEL'
    end
    object cdsCadastroUSU_ATIVO: TStringField
      FieldName = 'USU_ATIVO'
      Size = 1
    end
    object cdsCadastroUSU_VENDEDOR: TIntegerField
      FieldName = 'USU_VENDEDOR'
    end
    object cdsCadastroUSU_VENDEDOR_NIVEL: TIntegerField
      FieldName = 'USU_VENDEDOR_NIVEL'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSU_AUTORIZA_PEDIDO: TStringField
      FieldName = 'USU_AUTORIZA_PEDIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSU_NIVEL_AUTORIZACAO_PEDIDO: TIntegerField
      FieldName = 'USU_NIVEL_AUTORIZACAO_PEDIDO'
    end
    object cdsCadastroUSU_AUTORIZA_SOLICITACAO: TStringField
      FieldName = 'USU_AUTORIZA_SOLICITACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroUSU_LOGIN: TStringField
      DisplayLabel = 'Status'
      FieldName = 'USU_LOGIN'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSU_DATA_LOGIN: TDateTimeField
      DisplayLabel = 'Data Login'
      FieldName = 'USU_DATA_LOGIN'
      DisplayFormat = 'dd/mm/yyyy hh:mm'
    end
    object cdsCadastroUSU_DATA_LOGOF: TDateTimeField
      DisplayLabel = 'Data Logoff'
      FieldName = 'USU_DATA_LOGOF'
      DisplayFormat = 'dd/mm/yyyy hh:mm'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 640
    Top = 72
  end
  inherited OpenDialog1: TOpenDialog
    Left = 216
    Top = 64
  end
  object DSCadUsuarios: TDataSource
    Left = 640
    Top = 106
  end
  object DSNivel: TDataSource
    DataSet = DMGestao.QNivel
    Left = 636
    Top = 138
  end
end
